inherited FormCalculoComissao: TFormCalculoComissao
  Tag = 3
  Left = 390
  Top = 318
  Caption = 'C'#225'lculos de Comiss'#245'es de Guias'
  ClientHeight = 403
  ClientWidth = 499
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Height = 334
  end
  inherited pnlSelec: TPanel
    Height = 334
    inherited Splitter3: TSplitter
      Top = 49
    end
    inherited pnlBusca: TGroupBox
      Height = 48
      Caption = 'Digite uma descri'#231#227'o pra procurar'
      inherited lblCriterio: TLabel
        Left = 152
        Visible = False
      end
      inherited CRITERIO: TMaskEdit
        Top = 16
      end
    end
    inherited dbgRelacao: TSMDBGrid
      Top = 52
      Height = 281
      Columns = <
        item
          Expanded = False
          FieldName = 'CALGUIA_CODIGO'
          Visible = False
          FooterType = ftCustom
        end
        item
          Expanded = False
          FieldName = 'CALGUIA_DESCRICAO'
          Width = 176
          Visible = True
          FooterType = ftCustom
        end>
    end
  end
  inherited Panel1: TPanel
    Width = 287
    Height = 334
    inherited Splitter2: TSplitter
      Top = 318
      Width = 285
    end
    inherited PageControl1: TPageControl
      Top = 321
      Width = 285
      Height = 12
      Visible = False
    end
    object SMDBGrid1: TSMDBGrid
      Left = 1
      Top = 21
      Width = 285
      Height = 297
      Align = alClient
      Color = 16776176
      Ctl3D = False
      DataSource = dsItens
      FixedColor = clGradientActiveCaption
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clNavy
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = [fsBold]
      Flat = True
      BandsFont.Charset = DEFAULT_CHARSET
      BandsFont.Color = clWindowText
      BandsFont.Height = -11
      BandsFont.Name = 'MS Sans Serif'
      BandsFont.Style = []
      Groupings = <>
      GridStyle.Style = gsBrick
      GridStyle.OddColor = 13623263
      GridStyle.EvenColor = 10534847
      TitleHeight.PixelCount = 24
      FooterColor = clGradientActiveCaption
      ExOptions = [eoBooleanAsCheckBox, eoDisableDelete, eoDisableInsert, eoDrawGraphicField, eoENTERlikeTAB, eoKeepSelection, eoRowNumber, eoRowSizing, eoSelectedTitle, eoShowFooter, eoShowGlyphs, eoShowLookup, eoShowRecNo, eoStandardPopup, eoBLOBEditor]
      RegistryKey = 'Software\Scalabium'
      RegistrySection = 'SMDBGrid'
      WidthOfIndicator = 11
      DefaultRowHeight = 16
      ScrollBars = ssHorizontal
      ColCount = 4
      RowCount = 2
      Columns = <
        item
          Expanded = False
          FieldName = 'CALITEM_LIMINFERIOR'
          Width = 69
          Visible = True
          FooterType = ftCustom
        end
        item
          Expanded = False
          FieldName = 'CALITEM_LIMSUPERIOR'
          Width = 58
          Visible = True
          FooterType = ftCustom
        end
        item
          Expanded = False
          FieldName = 'CALITEM_VALOR'
          Visible = True
          FooterType = ftCustom
        end>
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 285
      Height = 20
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 2
      object DBText1: TDBText
        Left = 57
        Top = 3
        Width = 50
        Height = 13
        AutoSize = True
        DataField = 'CALGUIA_DESCRICAO'
        DataSource = dsDados
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label1: TLabel
        Left = 1
        Top = 3
        Width = 51
        Height = 13
        Caption = 'Descri'#231#227'o:'
      end
    end
  end
  inherited ToolBar1: TToolBar
    Width = 499
  end
  inherited pnCabecalho: TPanel
    Width = 499
    inherited Image1: TImage
      Width = 499
    end
  end
  inherited qryDados: TADOQuery
    CursorType = ctStatic
    BeforeClose = qryDadosBeforeClose
    SQL.Strings = (
      'SELECT * FROM CALGUIA'
      'WHERE CALGUIA_DESCRICAO LIKE :CRITERIO')
    object qryDadosCALGUIA_DESCRICAO: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'CALGUIA_DESCRICAO'
      Size = 50
    end
    object qryDadosCALGUIA_CODIGO: TAutoIncField
      FieldName = 'CALGUIA_CODIGO'
      ReadOnly = True
    end
  end
  inherited qryGeral: TADOQuery
    Left = 48
    Top = 136
  end
  object qryItens: TADOQuery
    Connection = FormPrincipal.cnRegente
    CursorType = ctStatic
    AfterInsert = qryItensAfterInsert
    DataSource = dsDados
    Parameters = <
      item
        Name = 'CALGUIA_CODIGO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM CALITEM'
      'WHERE CALGUIA_CODIGO=:CALGUIA_CODIGO')
    Left = 144
    Top = 104
    object qryItensCALGUIA_CODIGO: TIntegerField
      FieldName = 'CALGUIA_CODIGO'
    end
    object qryItensCALITEM_LIMINFERIOR: TIntegerField
      DisplayLabel = 'de'
      FieldName = 'CALITEM_LIMINFERIOR'
    end
    object qryItensCALITEM_LIMSUPERIOR: TIntegerField
      DisplayLabel = 'at'#233
      FieldName = 'CALITEM_LIMSUPERIOR'
    end
    object qryItensCALITEM_VALOR: TBCDField
      DisplayLabel = 'Valor/guia'
      FieldName = 'CALITEM_VALOR'
      currency = True
      Precision = 19
    end
  end
  object dsItens: TDataSource
    DataSet = qryItens
    Left = 144
    Top = 128
  end
end
